package com.ruoyi.common.datascope.aspect;

import java.util.ArrayList;
import java.util.HashMap;
import java.util.List;
import java.util.Map;
import java.util.Set;

import org.aspectj.lang.JoinPoint;
import org.aspectj.lang.annotation.Aspect;
import org.aspectj.lang.annotation.Before;
import org.springframework.beans.factory.annotation.Autowired;
import org.springframework.stereotype.Component;

import com.ruoyi.common.core.constant.SecurityConstants;
import com.ruoyi.common.core.context.SecurityContextHolder;
import com.ruoyi.common.core.text.Convert;
import com.ruoyi.common.core.utils.StringUtils;
import com.ruoyi.common.core.web.domain.BaseEntity;
import com.ruoyi.common.datascope.annotation.DataScope;
import com.ruoyi.common.redis.service.RedisService;
import com.ruoyi.common.security.utils.SecurityUtils;
import com.ruoyi.system.api.RemoteCommonService;
import com.ruoyi.system.api.domain.SysDatascope;
import com.ruoyi.system.api.domain.SysDept;
import com.ruoyi.system.api.domain.SysRole;
import com.ruoyi.system.api.domain.SysUser;
import com.ruoyi.system.api.model.LoginUser;

import breeze.framework.reflect.Reflector;
import cn.hutool.core.util.StrUtil;
/**
 * 数据过滤处理
 * 
 * @author ruoyi
 */
@Aspect
@Component
public class DataScopeAspect
{
    /**
     * 全部数据权限
     */
    public static final String DATA_SCOPE_ALL = "1";

    /**
     * 自定数据权限
     */
    public static final String DATA_SCOPE_CUSTOM = "2";

    /**
     * 部门数据权限
     */
    public static final String DATA_SCOPE_DEPT = "3";

    /**
     * 部门及以下数据权限
     */
    public static final String DATA_SCOPE_DEPT_AND_CHILD = "4";

    /**
     * 仅本人数据权限
     */
    public static final String DATA_SCOPE_SELF = "5";

    /**
     * 数据权限过滤关键字
     */
    public static final String DATA_SCOPE = "dataScope";
    
    @Autowired
    private RedisService redisService;
    
    @Autowired
    private RemoteCommonService commonService;
    
    @Before("@annotation(controllerDataScope)")
    public void doBefore(JoinPoint point, DataScope controllerDataScope) throws Throwable
    {
        clearDataScope(point);
        handleDataScope(point, controllerDataScope);
    }

	protected void handleDataScope(final JoinPoint joinPoint, DataScope controllerDataScope){
        // 获取当前的用户
        LoginUser loginUser = SecurityUtils.getLoginUser();
        if (StringUtils.isNotNull(loginUser))
        {
            SysUser currentUser = loginUser.getSysUser();
        	//默认放入用户参数,方便SQL中也可以判断身份
        	Object params = joinPoint.getArgs()[0];
        	BaseEntity baseEntity = null;
            if (StringUtils.isNotNull(params) && params instanceof BaseEntity){
                baseEntity = (BaseEntity) params;
                baseEntity.getParams().put("user", currentUser);
            }
            // 如果是超级管理员，则不过滤数据
            if (StringUtils.isNotNull(currentUser) && !currentUser.isAdmin())
            {
                //对应SQL中的${params.dataScope}
               	String permission = StringUtils.defaultIfEmpty(controllerDataScope.permission(), SecurityContextHolder.getPermission());
                dataScopeFilter(joinPoint, currentUser, controllerDataScope.deptAlias(), controllerDataScope.userAlias(), permission);
                
                //对应SQL中的${params.commonDataScope}
                if(!"".equalsIgnoreCase(controllerDataScope.code())) {
                	commonDataScopeFilter(loginUser, baseEntity, controllerDataScope.code());
                }
            }
        }
    }

	private void commonDataScopeFilter(LoginUser loginUser, BaseEntity baseEntity, String code) {
		
		try {
			SysUser currentUser = loginUser.getSysUser();
			//保证一直使用最新的数据.
			Map<String,SysDatascope> datascopes = null;
			List<SysDatascope> scopes = commonService.listAll(SecurityConstants.INNER);
			if(null == scopes) {
				//用Redis做个容错,方便System未启动时可以临时用用
				if (redisService.hasKey("sys_datascope_columns")) {
					datascopes = redisService.getCacheMap("sys_datascope_columns");
				}
			}else {
				datascopes = new HashMap<String,SysDatascope>();
				for (int i = 0; i < scopes.size(); i++) {
					SysDatascope datascope = scopes.get(i);
					datascopes.put(datascope.getCode(), datascope);
				}
				redisService.setCacheMap("sys_datascope_columns", datascopes);
			}
			SysDatascope datascope = datascopes.get(code);
			
			StringBuilder where = new StringBuilder();
			where.append(" and ")
				 .append(datascope.getEntityAlias()).append(".").append(datascope.getEntityKey()).append(" in( ")
				 .append("select d.resource_value from sys_datascope s ")
				 .append("left join sys_datascope_data d on s.code = d.datascope_code ")
				 .append("where s.code = ").append("'").append(code).append("'");
			
			if(datascope.getOwnerTable().equalsIgnoreCase("sys_user")) {
				Object ownerKey = Reflector.getProperty(currentUser, convertToCamelCase(datascope.getOwnerKey()));
				where.append(" and d.owner_value = ").append("'").append(Reflector.cast(String.class, ownerKey)).append("'");
			}else if(datascope.getOwnerTable().equalsIgnoreCase("sys_role")) {
				List<SysRole> roles = currentUser.getRoles();
				where.append(" and d.owner_value in (");
				for (int i = 0; i < roles.size(); i++) {
					SysRole role = roles.get(i);
					Object ownerKey = Reflector.getProperty(role, convertToCamelCase(datascope.getOwnerKey()));
					where.append("'").append(Reflector.cast(String.class, ownerKey)).append("'");
					if(i != roles.size()-1) {
						where.append(",");
					}else {
						where.append(")");
					}
				}
			}else if(datascope.getOwnerTable().equalsIgnoreCase("sys_menu")) {
				Set<String> permissions = loginUser.getPermissions();
				where.append(" and d.owner_value in (");
				for (String permission : permissions) {
					where.append("'").append(permission).append("',");
				}
				where.deleteCharAt(where.length() - 1);
				where.append(")");
			}else if(datascope.getOwnerTable().equalsIgnoreCase("sys_dept")) {
				SysDept dept = currentUser.getDept();
				Object ownerKey = Reflector.getProperty(dept, convertToCamelCase(datascope.getOwnerKey()));
				where.append(" and d.owner_value = ").append("'").append(Reflector.cast(String.class, ownerKey)).append("'");
			}
			where.append(")");
			
			if(null != baseEntity) {
				baseEntity.getParams().put("commonDataScope", where.toString());
				return;
			}
		} catch (Exception e) {
			e.printStackTrace();
		}
		baseEntity.getParams().put("commonDataScope", "");
	}

    
    
    /**
     * 数据范围过滤
     * 
     * @param joinPoint 切点
     * @param user 用户
     * @param deptAlias 部门别名
     * @param userAlias 用户别名
     * @param permission 权限字符
     */
    public static void dataScopeFilter(JoinPoint joinPoint, SysUser user, String deptAlias, String userAlias, String permission)
    {
        StringBuilder sqlString = new StringBuilder();
        List<String> conditions = new ArrayList<String>();

        for (SysRole role : user.getRoles())
        {
            String dataScope = role.getDataScope();
            if (!DATA_SCOPE_CUSTOM.equals(dataScope) && conditions.contains(dataScope))
            {
                continue;
            }
            if (StringUtils.isNotEmpty(permission) && StringUtils.isNotEmpty(role.getPermissions())
                    && !StringUtils.containsAny(role.getPermissions(), Convert.toStrArray(permission)))
            {
                continue;
            }
            if (DATA_SCOPE_ALL.equals(dataScope))
            {
                sqlString = new StringBuilder();
                break;
            }
            else if (DATA_SCOPE_CUSTOM.equals(dataScope))
            {
                sqlString.append(StringUtils.format(
                        " OR {}.dept_id IN ( SELECT dept_id FROM sys_role_dept WHERE role_id = {} ) ", deptAlias,
                        role.getRoleId()));
            }
            else if (DATA_SCOPE_DEPT.equals(dataScope))
            {
                sqlString.append(StringUtils.format(" OR {}.dept_id = {} ", deptAlias, user.getDeptId()));
            }
            else if (DATA_SCOPE_DEPT_AND_CHILD.equals(dataScope))
            {
                sqlString.append(StringUtils.format(
                        " OR {}.dept_id IN ( SELECT dept_id FROM sys_dept WHERE dept_id = {} or find_in_set( {} , ancestors ) )",
                        deptAlias, user.getDeptId(), user.getDeptId()));
            }
            else if (DATA_SCOPE_SELF.equals(dataScope))
            {
                if (StringUtils.isNotBlank(userAlias))
                {
                    sqlString.append(StringUtils.format(" OR {}.user_id = {} ", userAlias, user.getUserId()));
                }
                else
                {
                    // 数据权限为仅本人且没有userAlias别名不查询任何数据
                    sqlString.append(StringUtils.format(" OR {}.dept_id = {} ", deptAlias, user.getDeptId()));
                }
            }
            conditions.add(dataScope);
        }

        if (StringUtils.isNotBlank(sqlString.toString()))
        {
            Object params = joinPoint.getArgs()[0];
            if (StringUtils.isNotNull(params) && params instanceof BaseEntity)
            {
                BaseEntity baseEntity = (BaseEntity) params;
                baseEntity.getParams().put(DATA_SCOPE, " AND (" + sqlString.substring(4) + ")");
            }
        }
    }

    /**
     * 拼接权限sql前先清空params.dataScope参数防止注入
     */
    private void clearDataScope(final JoinPoint joinPoint)
    {
        Object params = joinPoint.getArgs()[0];
        if (StringUtils.isNotNull(params) && params instanceof BaseEntity)
        {
            BaseEntity baseEntity = (BaseEntity) params;
            baseEntity.getParams().put(DATA_SCOPE, "");
            baseEntity.getParams().put("user", null);
        }
    }
    
    private String convertToCamelCase(String column) {
    	return StrUtil.toCamelCase(column);
    }
}
